home *** CD-ROM | disk | FTP | other *** search
/ CD Media Le CD-ROM 1994 #2 / CD Media Le CD-ROM - Volume 02.iso / mac / B / 00004_Script_4 < prev    next >
Text File  |  1994-10-20  |  2KB  |  81 lines
  1. on MOTEUR
  2.   GLOBAL x,y,z,a,b,singeclic
  3.   repeat with i=2 to z 
  4.     puppetsprite i, TRUE    
  5.     set x=i + 29
  6.     if rollover (i) then
  7.       set the castnum of sprite 13 to x + 20
  8.       set the forecolor of sprite 13 to 107
  9.       set y=0
  10.       set the castnum of sprite i to x-20
  11.       set the ink of sprite i to 8
  12.     else
  13.       
  14.       if y=1 then 
  15.         set the castnum of sprite 13 to b
  16.         set the forecolor of sprite 13 to 107
  17.       end if
  18.       
  19.       set the ink of sprite i to 0
  20.       set the castnum of sprite i to x
  21.     end if    
  22.   end repeat 
  23.   if rollover (14) then
  24.     puppetsprite 14,True
  25.     set the castnum of sprite 14 to 22
  26.   else
  27.     set the castnum of sprite 14 to 42
  28.   end if
  29.   puppetsprite 15, TRUE
  30.   if a>1 then
  31.     set a=a-1
  32.     set the castnum of sprite 15 to (singeclic+2)
  33.   else
  34.     if a=1 then
  35.       set the castnum of sprite 15 to singeclic+1
  36.       set a=0
  37.     else
  38.       set the castnum of sprite 15 to singeclic
  39.       set a=1
  40.     end if 
  41.   end if
  42. end MOTEUR
  43.  
  44. on MOTEUR2
  45.   -- selection Image
  46.   global dernier
  47.   repeat with i=17 to 20
  48.     if rollover (i) then 
  49.       puppetsprite i,TRUE
  50.       set the ink of sprite i to 39
  51.     else
  52.       set the ink of sprite i to 5
  53.     end if
  54.   end repeat
  55. end MOTEUR2
  56.  
  57. on MOTEUR3
  58.   -- Selection typo
  59.   global c,d
  60.   repeat with i=17 to c
  61.     if rollover (i) then 
  62.       puppetsprite i, TRUE
  63.       set the castnum of sprite (i) to ((i)-17)+d
  64.     else
  65.       set the castnum of sprite (i) to ((i)-17)+d-5
  66.     end if
  67.   end repeat
  68. end MOTEUR3
  69.  
  70. on MOTEUR4
  71.   -- selection Image + de 4
  72.   global last
  73.   repeat with i=17 to last
  74.     if rollover (i) then 
  75.       puppetsprite i,TRUE
  76.       set the ink of sprite i to 39
  77.     else
  78.       set the ink of sprite i to 5
  79.     end if
  80.   end repeat
  81. end MOTEUR4